﻿Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.Sql
Imports BUS
Imports DTO


Public Class frmDangNhap

    Private Sub btt_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_Thoat.Click
        Me.Close()
    End Sub
    Private Sub btt_dangnhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_dangnhap.Click
        Dim NguoiDung As DangNhapDTO
        Dim username As String
        Dim password As String


        password = txt_pass.Text

        If (password = String.Empty) Then
            Dim dial = MessageBox.Show("Chưa nhập mật khẩu? ", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txt_pass.Focus()
            Return
        End If
        username = txt_TenDN.Text
        password = txt_pass.Text
        NguoiDung = DangNhapBUS.GetByID(username)

        If NguoiDung.TenDN = String.Empty Then
            Dim dial = MessageBox.Show("Không tồn tại tài khoản này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        If NguoiDung.MatKhau <> password Then
            Dim dial = MessageBox.Show("Mật khẩu không đúng", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        If NguoiDung.TrangThai = False Then
            Dim dial = MessageBox.Show("Tài khoản của bạn đã bị Khóa" & vbNewLine & "Vui lòng liên hệ với chủ cửa hàng", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        If NguoiDung.Quyen = 0 Then
            frmMain.Show()
            frmMain.ten = NguoiDung.Quyen = 0
            Me.Hide()
        Else
            frmMain.ten = 1
            frmMain.Show()
            Me.Hide()
        End If
    End Sub
   
    Private Sub ComboBoxEx1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class